Locus

A = Point(a)
B = Point(a)
c = Circle(A, B)
d = Circle(A, 2 * Distance[A, B])
C = Intersect(d, a, 2)
g = Segment(A, C)
D = Point(d)
b = Segment(A, D)
e = Line(B, b)
E, F = Intersect(c, e)
f = Segment(A, F)
G = Midpoint(D, F)
A' = Mirror(A, G)
h = Segment(D, A')
A'' = Mirror(A', F)
i = Segment(A', A'')
loc1 = Locus(A'', D)
j = false